home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tg.d64 / taxboot.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  512b  |  26 lines
  1. 1000 CLR
  2. 2000 PRINT"[147][144]":POKE53280,5:POKE53281,13
  3. 2010 A$="        **** TIME SOFTWARE ****"
  4. 2020 FORI=1TO LEN(A$)
  5. 2030 FORZZ=1TO200:NEXTZZ
  6. 2040 PRINTMID$(A$,I,1);:NEXTI
  7. 2050 PRINT:PRINT:PRINT
  8. 2060 A$="               PRESENTS        "
  9. 2070 FORI=1TO LEN(A$)
  10. 2080 FORZZ=1TO200:NEXTZZ
  11. 2090 PRINTMID$(A$,I,1);:NEXTI
  12. 2100 PRINT:FORT=1TO3000:NEXTT
  13. 2105 PRINT""
  14. 2110 A$="T A X C A L C 84"
  15. 2120 A$="           "+A$
  16. 2130 FORI=1TOLEN(A$)
  17. 2140 PRINTMID$(A$,LEN(A$)-I+1,I);"[145]"
  18. 2150 FORZZ=1TO25:NEXTZZ:NEXTI
  19. 2160 PRINT"[144]"
  20. 2170 A$="         LOADING INSTRUCTIONS"
  21. 2180 FORI=1TO LEN(A$)
  22. 2190 FORZZ=1TO200:NEXTZZ
  23. 2200 PRINTMID$(A$,I,1);:NEXTI
  24. 3000 LOAD"0:INS",8
  25. 3010 RUN
  26.